#!/usr/bin/perl

use strict;
use warnings;

use XML::Parser::PerlSAX;
use Manejador;

my $mi_handler = Manejador->new;
my $parser = XML::Parser::PerlSAX->new(Handler=>$mi_handler);

$parser->parse(Source=>{SystemId=>$ARGV[0]});

print "\n";
